Add sort option -prefix-then-key-order-reverse

Fixes #145

diff --git a/which-key.el b/which-key.el
index c17a1c7a3eb5b78fbb77a44a5aaba71a30f249f3..70372675ce92925b39f43ef924aa9f06970599ae 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -1176,6 +1176,16 @@ coming before a prefix. Within these categories order using
         (and (not apref?) bpref?)
       (which-key-key-order acons bcons))))
 
+(defun which-key-prefix-then-key-order-reverse (acons bcons)
+  "Order first by whether A and/or B is a prefix with prefix
+coming before a prefix. Within these categories order using
+`which-key-key-order'."
+  (let ((apref? (which-key--group-p (cdr acons)))
+        (bpref? (which-key--group-p (cdr bcons))))
+    (if (not (eq apref? bpref?))
+        (and apref? (not bpref?))
+      (which-key-key-order acons bcons))))
+
 (defun which-key-local-then-key-order (acons bcons)
   "Order first by whether A and/or B is a local binding with
 local bindings coming first. Within these categories order using